home *** CD-ROM | disk | FTP | other *** search
/ Windows Game Programming for Dummies (2nd Edition) / WinGamProgFD.iso / pc / DirectX SDK / DXSDK / samples / Multimedia / VBSamples / DirectPlay / Conferencer / frmProgress.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-08  |  2.4 KB  |  69 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form frmProgress 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "File Copy Progress"
  6.    ClientHeight    =   1350
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3870
  10.    Icon            =   "frmProgress.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1350
  15.    ScaleWidth      =   3870
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin MSComctlLib.ProgressBar bar 
  18.       Height          =   375
  19.       Left            =   60
  20.       TabIndex        =   0
  21.       Top             =   900
  22.       Width           =   3675
  23.       _ExtentX        =   6482
  24.       _ExtentY        =   661
  25.       _Version        =   393216
  26.       Appearance      =   1
  27.       Scrolling       =   1
  28.    End
  29.    Begin VB.Label lblFile 
  30.       BackStyle       =   0  'Transparent
  31.       Height          =   735
  32.       Left            =   60
  33.       TabIndex        =   1
  34.       Top             =   60
  35.       Width           =   3675
  36.    End
  37. Attribute VB_Name = "frmProgress"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  43. '  Copyright (C) 1999-2001 Microsoft Corporation.  All Rights Reserved.
  44. '  File:       frmProgress.frm
  45. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  46. Option Explicit
  47. 'This form will act both as the UI for the progress of file transfers as well
  48. 'as holding the information for the transfer
  49. Public sFileName As String
  50. Public lFileSize As Long
  51. Public lDPlayID As Long
  52. Public FileUniqueID As Long
  53. Public lCurrentPos As Long
  54. Public filNumber As Long
  55. Public RequestForm As frmTransferRequest
  56. Public Sub SetFile(ByVal sFile As String, Optional ByVal fReceive As Boolean = False)
  57.     If fReceive Then
  58.         lblFile.Caption = "Receiving: " & sFile
  59.     Else
  60.         lblFile.Caption = "Transfering: " & sFile
  61.     End If
  62. End Sub
  63. Public Sub SetMax(ByVal lMax As Long)
  64.     bar.Max = lMax
  65. End Sub
  66. Public Sub SetValue(ByVal lValue As Long)
  67.     bar.Value = lValue
  68. End Sub
  69.